home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XCENTER.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  296b  |  16 lines
  1. {$IBoDecl.pas}
  2. {$ICenter.pas}
  3. {$IPutStr.pas}
  4. {$ICopies.pas}
  5.  
  6. BEGIN
  7.    ClrScr;
  8.    for i := 1 to 8 do
  9.    begin
  10.       str ( i, S );
  11.       PutStr ( h, Center ( S, 10, ' '), 1 + (i-1) * 10, 1, 112 );
  12.       PutStr ( v, Copies ( #179,24),  1 + (i-1) * 10, 2, 14 );
  13.    end;
  14.    read;
  15.  
  16. END.